home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2007 June / SAN CD 6-2007 CD-ROM 25.iso / pc / Software / Aberrator 3.0 / Install Aberrator 3.0.exe / Install Aberrator 3.0.dxr / 00009_MUI-GUI- addShortcutDialog.ls < prev    next >
Encoding:
Text File  |  2007-04-19  |  1.5 KB  |  34 lines
  1. on addShortcutDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  2.   if the platform contains "mac" then
  3.     iconLi = [#mem: member("muiLogo_mac", "Internal")]
  4.   else
  5.     iconLi = [#mem: member("muiLogo_pc", "Internal")]
  6.   end if
  7.   NameLi = [#d1, #B1, #S1, #V1, #i1]
  8.   EnabLi = [#d1: 1, #B1: 1, #S1: 1, #V1: 1, #i1: 1]
  9.   BtnsLi = [#d1: "Yes", #B1: "No"]
  10.   StatLi = [#S1: "Add desktop shortcut?"]
  11.   EditLi = [:]
  12.   attrLi = []
  13.   valuLi = [:]
  14.   grupLi = [:]
  15.   return getaddShortcutDialogDialog(iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi)
  16. end
  17.  
  18. on getaddShortcutDialogDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  19.   winProps = [#type: #normal, #mode: #pixel, #closeBox: 0, #callback: "muiCallbackStandard", #modal: 1]
  20.   titleBar = "Shortcut"
  21.   inscription = getMUIGUIDlogText(BtnsLi, StatLi, EditLi)
  22.   txtLi = [#titleBar: titleBar, #inscription: inscription]
  23.   if not listp(attrLi) then
  24.     attrLi = [:]
  25.   end if
  26.   if not listp(valuLi) then
  27.     valuLi = [:]
  28.   end if
  29.   ElemLi = [#d, #b, #s, #V, #i]
  30.   xyLi = [#PositionX: #z, #PositionY: #z, #BreiteF: 280, #HoeheF: 70, #xListe: [120, 200, 120, 110, 0], #yListe: [40, 40, 10, 0, 0], #bListe: [70, 70, 140, 3, getMuiIconSize(iconLi, 1, #x)], #hListe: [20, 20, 15, 70, getMuiIconSize(iconLi, 1, #y)], #aListe: [#center, #center, #left, #left, #left], #pListe: [0, 0, #normal, 0, 0]]
  31.   answer = displayMUIDialog(winProps, iconLi, NameLi, EnabLi, ElemLi, xyLi, txtLi, attrLi, valuLi, grupLi)
  32.   return answer
  33. end
  34.